home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: New Zealand Amiga Users Group / New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).zip / New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).adf / BASIC / Dragon < prev    next >
Text File  |  1993-12-02  |  920b  |  31 lines
  1. ON ERROR GOTO 230
  2. ON BREAK GOSUB 230
  3. BREAK ON
  4. 10    SCREEN 1,320,200,4,1
  5. 15    WINDOW 2,,,15,1   
  6. 20    CLS: k=0:RANDOMIZE TIMER
  7. 30    FOR j=1 TO 15
  8. 35    PALETTE j,RND,RND,RND:COLOR j
  9. 40    IF j<10 THEN PRINT " ";j ELSE PRINT j
  10. 60    LINE (30,2+k)-(120,4+k),,bf: k=k+8: NEXT
  11. 70    LOCATE 18,1:PRINT "";:INPUT "Which color (1-15)";n$
  12. 80    n=VAL(n$):IF n$="" THEN END ELSE IF n<1 OR n>15 THEN 70
  13. 90    COLOR n
  14. 100   LOCATE 22,1:PRINT ""; :INPUT "Dragon (1-8) [0 to EXIT]";n$
  15. 110   n=VAL(n$): IF n$="" THEN 20 ELSE IF n<0 OR n>9 THEN 100
  16. 120   CLS
  17. 125   IF n=0 THEN 210  
  18. 130   f=128:e=0:k=4^n
  19. 140   FOR x=1 TO n:u=f:f=-e/2:e=u/2:NEXT
  20. 150   x=80:y=70:PSET( x,y)
  21. 160   FOR m=1 TO k:z=m:x=x+f:y=y+e:LINE -( x,y)
  22. 170   FOR a=0 TO 1:z=z/2:q=INT(z):a=z-q:NEXT
  23. 180   a=(-(q/2=INT(q/2))*2-1):u=f:f=a*e:e=-a*u
  24. 190   NEXT
  25. 200   GOTO 100
  26. 210   SCREEN CLOSE 1
  27. 220   SYSTEM
  28. 230   SCREEN CLOSE 1
  29. 240   RESUME 250        
  30. 250   STOP  
  31.